﻿

Public Class frmMasterJenisBarang
    Inherits baseListForm
    Public Sub New()
        InitializeComponent()
        MyBase.PROCEDURE_MASTER = "lihat_jenisbarang"
        MyBase.PROCEDURE_SEARCH = "proc_searchall"
        MyBase.SELECT_PARAMETER = New Object() {"", ""}
        MyBase.FORM_ENTRY_NAME = "EntryJenisBarang"
        MyBase.REPORT_NAME = "rptDaftarJenisBarang.rpt"
        defaultAllColumn("jenisbarang")
    End Sub
    Public Overrides Sub prepareSearchParameter(ByVal namakolom As String, ByVal katakunci As String)
        SEARCH_PARAMETER = New Object() {"*", "jenisbarang", namakolom, katakunci}
    End Sub
    Public Overrides Sub prepareDeleteParameter(ByVal kode As String)
        DELETE_PARAMETER = New Object() {"delete", kode, Convert.DBNull, Convert.DBNull, Convert.DBNull, Convert.DBNull, Convert.DBNull, Convert.DBNull, Convert.DBNull, Convert.DBNull, Convert.DBNull, Convert.DBNull}
    End Sub
    Public Overrides Sub prepareProcRepParameter()
        REPORT_PROC = "proc_repobat"
        REPORT_PROC_PARAMETER = New Object() {"daftar"}
    End Sub
    Public Overrides Sub prepareReport(ByVal clsView As clsReportPreview)

        MyBase.prepareReport(clsView)
        clsView.SetParameter("namaklinik", Session.vcompany.ToUpper)
        clsView.SetParameter("alamat", Session.valamat.ToString.ToUpper)
        clsView.SetParameter("telepon", "Telp." & Session.vtelepon)
        clsView.SetParameter("fax", "Fax." & Session.vfax)
        clsView.SetParameter("petugas", Session.username.ToString.ToUpper)

    End Sub
    Private Sub DokterListPage_EnterReportPage(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.EnterReportPage
        MainForm.enterView(sender)
    End Sub


    Private Sub btnCetak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
End Class
